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-- DoubleDefs.Mesa Edited by Johnsson on March 24, 1977 8:57 AM 

DIRECTORY 

InlineDefs: FROM "inl inedef s" ; 

DoubleDefs: DEFINITIONS = 
BEGIN 

LongCARDINAL: TYPE = Inl ineDef s . LongCARDINAL; 
Comparison: TYPE * {less, equal, greater}; 

DDivide: PROCEDURE [num. den: LongCARDINAL] 

RETURNS [quotient, remainder: LongCARDINAL]; 
DMultiply: PROCEDURE [a.b: LongCARDINAL] 

RETURNS [product: LongCARDINAL]; 
DAdd: PROCEDURE [a,b: LongCARDINAL] RETURNS [LongCARDINAL]; 
DSub: PROCEDURE [a,b: LongCARDINAL] RETURNS [LongCARDINAL]; 
DNeg: PROCEDURE [a: LongCARDINAL] RETURNS [LongCARDINAL]; 
Dine: PROCEDURE [a: LongCARDINAL] RETURNS [LongCARDINAL]; 
DCompare: PROCEDURE [a,b: LongCARDINAL] RETURNS [Comparison]; 
AppendDouble: PROCEDURE [s:STRING, a: LongCARDINAL]; 

END. 


